﻿Imports Negocio
Public Class frmInformacionDescuento

    Dim servicio1 As New ArticuloNegocio

    Dim codArticulo As String = ""
    Dim nomArticulo As String = ""

    Sub New()

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub

    Sub New(codarticulo As String, nomArticulo As String)

        ' Llamada necesaria para el diseñador.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        Me.codArticulo = codarticulo
        Me.nomArticulo = nomArticulo
    End Sub

    Sub listarDescuentos()
        Dim ds As DataSet = servicio1.obtenerDescuentosXArticulo(codArticulo, 2)

        For i = 0 To ds.Tables(0).Rows.Count - 1
            dgvDescuentos.Rows.Add(i + 1, ds.Tables(0).Rows(i)("Cantidad").ToString.Trim, ds.Tables(0).Rows(i)("Porcentaje").ToString.Trim, ds.Tables(0).Rows(i)("FI").ToString.Trim,
                                   ds.Tables(0).Rows(i)("FF").ToString.Trim, ds.Tables(0).Rows(i)("Rango").ToString.Trim)
        Next

        If ds.Tables(0).Rows.Count > 0 Then
            dgvDescuentos.Rows(0).Selected = False
        End If
    End Sub

    Private Sub frmInformacionDescuento_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        lblCodigo.Text = "Código :  " & codArticulo
        lblArticulo.Text = "Artículo :  " & nomArticulo

        listarDescuentos()
    End Sub

    Private Sub dgvDescuentos_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvDescuentos.CellFormatting
        For i = 0 To dgvDescuentos.Rows.Count - 1
            If dgvDescuentos.Item("Column4", i).Value = "0" And e.RowIndex = i Then
                e.CellStyle.BackColor = Color.PaleGreen
            ElseIf dgvDescuentos.Item("Column4", i).Value = "1" And e.RowIndex = i Then
                e.CellStyle.BackColor = Color.SkyBlue
            End If
        Next
    End Sub

End Class